home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / virgen / ivp17 / Phasor.rtn < prev    next >
Encoding:
Text File  |  1992-12-25  |  748 b   |  36 lines
  1. ; Makes a phasor sound over the speaker.  Thanks to Gompa for this.
  2. ; CX=Number of shots.
  3.  
  4. phasor:
  5.         push    cx
  6.  
  7.         cli
  8.         mov     dx,12000
  9.         sub     dx,cs:5000
  10.         mov     bx,100
  11.         mov     al,10110110b
  12.         out     43h,al
  13. backx:
  14.         mov     ax,bx
  15.         out     42h,al
  16.         mov     al,ah
  17.         out     42h,al
  18.         in      al,61h
  19.         mov     ah,0
  20.         or      ax,00000011b
  21.         out     61h,al
  22.         inc     bx
  23.         mov     cx,15
  24. loopx:
  25.         loop    loopx
  26.         dec     dx
  27.         cmp     dx,0
  28.         jnz     backx
  29.         in      al,61h
  30.         and     al,11111100b
  31.         out     61h,al
  32.         sti
  33.         pop     cx
  34.         loop    phasor
  35.  
  36.